home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presentation Library 1992 Spring / ARPL-Spring-1992_Partner_Edition.iso / 5-Fonts & Software / Software Applications / Graphics / Canvas 3.0.3 Demo / Canvas™ 3.0.3 Demo / Canvas™ 3.0.3 Demo.rsrc / PSst_6100 < prev    next >
Encoding:
Text File  |  1992-03-10  |  500 b   |  15 lines

  1. %%DSIDICT:_cv
  2. currentdict /bu known {bu}if
  3. userdict /_cv known not{userdict /_cv 30 dict put}if
  4. _cv begin
  5. /bdf{bind def}bind def
  6. currentscreen/cs exch def/ca exch def/cf exch def
  7. /setcmykcolor where{/setcmykcolor get /cvcmyk exch def}{/cvcmyk{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1 roll}repeat setrgbcolor pop}bdf }ifelse
  8. /ss{//cf //ca //cs setscreen}bdf
  9. /stg{ss setgray}bdf
  10. /strgb{ss setrgbcolor}bdf
  11. /stcmyk{ss cvcmyk}bdf
  12. /min1{dup 0 eq{pop 1}if}bdf
  13. end
  14. currentdict /bn known {bn}if
  15.